Application.ScreenUpdating = False
Dim cel As Range
Sheets("Rec 1").Select
Sheets("Rec 1").Copy Before:=Sheets(1)
Sheets("Rec 1 (2)").Select
Sheets("Rec 1 (2)").Name = "récap compta"
For Each cel In Range("c4:c" & Range("c65536").End(xlUp).Row)
If cel.Value = 0 Or IsEmpty(cel) Then '--------
cel.Value = "ZZZZZ" '---------
MsgBox (cel.Address(0, 0)) '-------
End If '----------------
Next cel
Range("A4:m4").CurrentRegion.Sort Key1:=Range("C4"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
MsgBox ("après tri") '---------------
For Each cel In Range("C4:C" & Range("C65536").End(xlUp).Row)
If cel.Value = "ZZZZZ" Then
cel.Value = 0
MsgBox ("effacement ") & cel.Address(0, 0) '--------------
End If '----------------
Next cel
Application.ScreenUpdating = True