Sub Info()
Application.ScreenUpdating = False
Dim Ws1 As Worksheet, Ws2 As Worksheet
Dim Lig&, Col&, i&, Derlig&
Lig = ActiveCell.Row
Col = ActiveCell.Column
Set Ws1 = Worksheets("BON DE COMMANDE") 'Destination
Set Ws2 = Worksheets("Suivi véhicules") 'Source
Derlig = Ws2.Range("A" & Rows.Count).End(xlUp).Row
For i = 6 To Derlig
If Ws2.Range("I" & i) <> "" Then
' Tu choisis parmi les 4 couleurs vertes celle que tu veux
Ws2.Range("A" & i & ":L" & i).Interior.ColorIndex = 4 '<== 4 ou 10 ou 43 ou 50
Else
Ws2.Range("A" & i & ":L" &...