Sub AjouteN33()
Application.EnableEvents = False
Application.ScreenUpdating = False
ActiveWorkbook.ActiveSheet.Select
ActiveSheet.Unprotect Password:="Krameri"
[B]ActiveCell.Offset(0, -8).Select[/B]
Dim Lg%, i%
Application.ScreenUpdating = False
Lg = Range("n65536").End(xlUp).Row
For i = 4 To Lg
If Left(Cells(i, "n"), 2) <> "33" And Cells(i, "n") <> "" Then
Cells(i, "n") = "33" & Cells(i, "n")
End If
Next i
ActiveCell.Offset(0, 8).Select
End Sub