Bonjour,

je souhaiterais supprimer toutes les cellules d'une plage qui ne contiendrait pas au moins AZ.
Par exemple, si elle contient AZ ou AZ 23 ou AZ 234 elle ne serait pas supprimée.

Voici le code que j'utilise:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
Sub SUPPRIMER()
 
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
Il me supprime tout sauf là où est contenu AZ strictement.

J'ai essayé "*AZ*" mais bien évidemment cela ne fonctionne pas.
J'ai essayé d'inclure
Code : Sélectionner tout - Visualiser dans une fenêtre à part
lookat:=xlPart
mais sans succès...

Je vous remercie de l'attention que vous porterez à cette demande.

Cordialement,

Innuendo67