Sub AjouteC33()
Dim Lg%, i%
Application.ScreenUpdating = False
Lg = Range("c65536").End(xlUp).Row
For i = 3 To Lg
If Left(Cells(i, "c"), 2) <> "33" Then
Cells(i, "c") = "33" & Cells(i, "c")
End If
Next i
End Sub
Sub AjouteD33()
Dim Lg%, i%
Application.ScreenUpdating = False
Lg = Range("d65536").End(xlUp).Row
For i = 3 To Lg
If Left(Cells(i, "d"), 2) <> "33" Then
Cells(i, "d") = "33" & Cells(i, "c")
End If
Next i
End Sub