Bonjour,

exemple :

Sub ChercheCondition()

    Dim Plage As Range, Cellule As Range
    
    Set Plage = Range("A4:B6")
    
    For Each Cellule In Plage
        If ((Cellule.Value = "") And (Cellule.Interior.ColorIndex <> xlNone)) Then
            Cellule.Value = Cellule.Offset(-1, 0).Value
        End If
    Next Cellule

End Sub
'

Salut,

un truc dans ce style :

Dim i As Integer
For i = 2 To 100
If Feuil1.Cells(i, 1).Interior.Color <> vbWhite Then
Feuil1.Cells(i, 1).Formula = Feuil1.Cells(1, 1).Formula
End If
Next i

Je recherche A2 à A100 si la couleur d'une cellule est différente de blanc.
Si tel est le cas je copie la formule de la cellule A1 sur les cases colorées.

Espérant répondre à ton problème!

@+