erreur de compilation

[nordov6]

salut tous le monde
aider moi sur ce code
il declare erreur de compilation en selectionnent
Debut =2

Private Sub CommandButton19_Click()

Dim Cel As Range
For Each Cel In Range("A13:A46")
If Cel.Value <> "" And Cel.Value = 0 Then
Cel.EntireRow.Hidden = True
End If
Next Cel
DeBut = 2
For i = 2 To Range("A65535").End(xlUp).Row
If Cells(i + 1, 1) <> Cells(i, 1) Then
Application.DisplayAlerts = False
Range(Cells(DeBut, 1), Cells(i, 1)).Merge
DeBut = i + 1
End If
Next i
Application.DisplayAlerts = True

Sheets("pv").PrintOut Copies:=2
End Sub

 

[camarchepas]

Re : erreur de compilation

Bonsoir ,

Juste à la ligne aprés
Dim Cel As Range

ajoutes :

dim Debut as long

 

[nordov6]

Re : erreur de compilation

merci infiniment