Bonjour,
Je suis encore en galère...
J'utilise ce code:
Dim J As Long
For J = 2 To Range("B" & Rows.Count).End(xlUp).Row
If UCase(Range("B" & J)) <> "AZ" Then
Range("B" & J).ClearContents
End If
Next J
End Sub
Seulement il me prend exactement AZ. Or je souhaiterai que cela fonctionne avec par exemple
AZ 23.
J'ai essayé d'intégrer le find:=xlpart mais sans succès.
Auriez vous une solution?
Merci
Cordialement,
Innuendo67