Sub efface(colonne_d, colonne_f)
Application.ScreenUpdating = False
For n = Range(colonne_d & Rows.Count).End(xlUp).Row To 1 Step -1
If Range(colonne_d & n) - Int(Range(colonne_d & n)) <> 0 Then
Range(colonne_d & n & ":" & colonne_f & n).Delete
End If
Next
Application.ScreenUpdating = True
End Sub
Sub eff_toutes()
Call efface("A", "B")
Call efface("D", "E")
End Sub