Bonjour si quelqu'un peut m'aidé sur cette erreur Erreur d'éxecution '6' - Dépassement de capacité

voici mon programme :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub fusionnerV()
Dim Lig As Byte, Deb As Byte
'fige le défilement de l'écran:confort et rapidité
Application.ScreenUpdating = False
'empèche le message d'avertissement de fusion de cellules
Application.DisplayAlerts = False
For Lig = 1 To 100
'Si cellule du dessous =cellule en cours
If Cells(Lig, "F") = Cells(Lig + 1, "F") Then
Deb = Lig 'mémorise la ligne de départ de fusion
 
'Incrémente la ligne jusqu'à fin de condition =
Do
Lig = Lig + 1
Loop Until Cells(Lig, "F") <> Cells(Lig + 1, "F") //////////////////// ligne qui pose probléme
 
'fusionne le bloc des cellules adjacentes =
With Range(Cells(Deb, "F"), Cells(Lig, "F"))
.MergeCells = True
.VerticalAlignment = xlCenter
End With
End If
Next
 
Application.DisplayAlerts = True
'encadre la nouvelle présentation
Range("F1:F100").Borders.Weight = xlThin
 
End Sub