Ajouter une conditon dans cette macro...

[Christian0258]

Bonjour à tout le forum,

Pourriez-vous me dire comment ajouter une condition dans cette macro, de (Dead78), qui supprime les colonnes dès qu'elle trouve le mot "RH" ...donc je souhaite ajouter "F" dans cette action :

Sub Supprime()
Application.EnableEvents = False
Application.ScreenUpdating = False
For I = 4 To 1 Step -1 'disons les 4 premières lignes
For J = 367 To 1 Step -1 'disons les 367 premières colonnes
If Cells(I, J).Value = "RH" Then ' je souhaite ajouter Or .Value = "F" Then mais je n'y arrive pas ? Columns(J).Delete
End If
Next
Next
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

Merci pour votre aide.
Bien à vous,
Christian

 

[Christian0258]

Re, le forum, M12

Oups, ben oui...quel c..
Merci, M12, pour le boulot...et ta patience

Bien à toi,
Christian