Sub Macro50()
Application.DisplayAlerts = False
Dim Lignes As Integer, I As Integer, J As Integer
Lignes = 0 ' <== Inutile
I = 2
J = 3
For Lignes = 30 To 37
'Macro I----------------------------------
'Macro J----------------------------------
End With ' <== il est où le with toto ?? A quoi sert-il ?
I = I + 1
J = J + 1
Next Lignes
Application.DisplayAlerts = True
End Sub