Dans l’exemple suivant, vous colorez la dernière cellule utilisée avec la couleur d’arrière-plan jaune clair. La macro pour cette tâche se trouve dans le code suivant.

Sub ColorationDeLaDerniereLigne ()

Sheets ("Feuil1"). Activate

Range ("A65536"). End (xlUp) .Select

  ActiveCell.EntireRow.Select

     With Selection.Interior

         .ColorIndex = 36

         .Pattern = xlSolid

     End With

End Sub

Utilisez la propriété End et l’opérateur de direction xlUp pour déterminer la dernière ligne utilisée. Marquez ensuite la ligne entière à l’aide de la propriété CompleteRow. Formatez ensuite la ligne en définissant le ColorIndex sur 36. Vous utilisez la propriété Pattern pour définir le motif d’arrière-plan de la zone.