Allo à tous,
J'ai trouvé ma formule avec essai erreure, merci.
la voici
Sub couleur()
With ActiveCell
If .Interior.Color = RGB(255, 255, 255) Then
.Interior.Color = RGB(224, 255, 255)
.Font.Bold = True
Else
.Interior.Color = RGB(255, 255, 255)
.Font.Bold = True
End If
End With
End Sub
À +