Sub Suppression()
Range("J1").Select
Do
' ATTENTION : l'opérateur Like fait la différence majuscule/minuscule
If ActiveCell.Value Like "*s*" Then
' colonne G
Cells(ActiveCell.Row, 7).Delete shift:=xlShiftUp
' colonne K
Cells(ActiveCell.Row, 11).Delete shift:=xlShiftUp
End If
ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell.Row = ActiveSheet.Rows.Count
End Sub
Sub Effacer()
Do
' ATTENTION : l'opérateur Like fait la différence majuscule/minuscule
If ActiveCell.Value Like "*s*" Then
' colonne G
Cells(ActiveCell.Row, 7).ClearContents
' colonne K
Cells(ActiveCell.Row, 11).ClearContents
End If
ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell.Row = ActiveSheet.Rows.Count
End Sub