Sub test()
[COLOR=SeaGreen]'Déclarations des variables[/COLOR]
Dim i As Long
[COLOR=SeaGreen]'Parcours de la plage de cellules à traiter
'(ici de 1ère cellule à la dernière cellule non vide
'de la colonne B de la feuille 2)
[/COLOR] For i = Feuil2.[B65536].End(xlUp).Row To 1 Step -1
[COLOR=SeaGreen]'Si la cellule en colonne B n'est pas vide[/COLOR]
If Not IsEmpty(Feuil2.Cells(i, 2)) Then
[COLOR=SeaGreen]'alors cette cellule prend la couleur de fond[/COLOR]
[COLOR=SeaGreen]de la cellule de la feuille A (de même ligne).[/COLOR]
Feuil2.Cells(i, 2).Interior.ColorIndex = _
Sheets("A").Cells(i, 1).Interior.ColorIndex
End If
Next i
End Sub