Sub essai()
Dim cel As Range
Dim j As Integer
j = 1
For Each cel In Range("B2:B100") ' a modifier pour adapter a ton cas
If Range("b" & j).Value Like "Somme*" Then
Cells(j, 2).Delete
j = j - 1
Else
j = j + 1
End If
Next cel
End Sub
Salut à tousflo2002 à dit:j'ai mis:
Dim i
c21 = ws2.Range("B65536").End(xlUp).Row
For i = 1 To c21
If Range("b" & i).Value Like "Somme*" Then Cells(i, 2).Select
Selection.Delete Shift:=xlUp
Next i
et il fait le menage, de toutes les lignes en bas... mais pas les bonnes!
Sub Macro1()
Dim i
Dim c21 As Long
c21 = Range("B65536").End(xlUp).Row
For i = c21 To 1 Step -1
If UCase(Range("b" & i)) Like UCase("*Somme*") Then Range("b" & i).Delete
Next i
End Sub
Sub essai()
Dim c21 As Long 'please
Dim i As Long 'please aussi
c21 = Range("B65536").End(xlUp).Row
For i = c21 To 1 Step -1
If Range("b" & i).Value Like "Somme*" Then Cells(i, 2).Delete
Next i
End Sub