Bonsoir,
J'ai ce code pour faire cette macro mais ça ne marche pas !
Avez-vous une idée sur ce qui cloche ?
Merci pour votre aide
J'ai ce code pour faire cette macro mais ça ne marche pas !
Code:
Sub SupprimerCouleurRouge()
Dim rcel As Range
Range("A1" ).Select
Selection.CurrentRegion.Select
For Each vcel In Selection
If rcel.Interior.ColorIndex = 3 Then
rcel.EntireRow.Delete
End If
Next rcel
End Sub
Avez-vous une idée sur ce qui cloche ?
Merci pour votre aide