Merci GMB ça fonctionne
'filtre les valeurs moyenn, standa etc.. puis supprime ces lignes
For I = Range("A1").End(xlDown).Row To 1 Step -1
If UCase(Cells(I, 1).Value) Like "MOYENN*" Or UCase(Cells(I, 1).Value) Like "STANDA*" Or UCase(Cells(I, 1).Value) Like "MAX*" Or UCase(Cells(I, 1).Value) Like "MIN*" Or UCase(Cells(I, 1).Value) Like "STATIS*" Or UCase(Cells(I, 1).Value) Like "PAGE*" Or UCase(Cells(I, 1).Value) Like "ACT*" Then
Cells(I, 1).Clear
End If
Next I
ActiveSheet.Range("$A$4:$BC$2403").AutoFilter Field:=1, Criteria1:="="
ActiveSheet.Rows("5:2403").SpecialCells(xlCellTypeVisible).Delete
ActiveSheet.ShowAllData
je souhaite effacer les valeurs qui commence par c, j'ai mis ce code à la suite.
Le problème c'est que cela ne fonctionne pas. Ca marche si je supprime le code du dessus. Ca doit venir du I qui doit être bloqué
For I = Range("A1").End(xlDown).Row To 1 Step -1
If UCase(Cells(I, 1).Value) Like "C*" Then
Cells(I, 1).Clear
End If
Next I
Merci de votre aide