petit problème de copie de cellule

Salut tout le monde !!!

voici mon code (source Excel lent) :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim faitP As Boolean, faitG As Boolean, faitM As Boolean
Dim i%, ligne%, lig(4, 37), a As Byte
'Colonne B
If faitP = False Then
For i = 6 To 36
lig(1, i) = 6
Next
End If
For ligne = 6 To 36 Step 2
If ligne < 17 Then a = 0 Else a = 7
If Target.Address = "$B$" & ligne Then
Sheets("Statistiques").Cells(lig(1, ligne), ligne / 2 - 2 - a) = Range("B" & ligne)
lig(1, ligne) = lig(1, ligne) + 1
faitP = True
End If
Next
'Colonne G
If faitG = False Then
For i = 6 To 36
lig(2, i) = 6
Next
End If
For ligne = 6 To 34 Step 2
If ligne < 21 Then a = 5 Else a = 0
If Target.Address = "$G$" & ligne Then
Sheets("Statistiques").Cells(lig(2, ligne), ligne / 2 + 2 + a) = Range("G" & ligne)
lig(2, ligne) = lig(2, ligne) + 1
faitG = True
End If
Next
'Colonne M
If faitM = False Then
For i = 6 To 21
lig(3, i) = 6
Next
End If
For ligne = 6 To 21 Step 5
If Target.Address = "$M$" & ligne Then
Sheets("Statistiques").Cells(lig(3, ligne), Int(ligne / 5) + 19) = Range("M" & ligne)
lig(3, ligne) = lig(3, ligne) + 1
faitM = True
End If
Next
End Sub

cela fonctionne bien avec certaines cellules mais avec d'autres non
pouvez-vous m'aider à résoudre se petit problème car je ne trouve pas la faille !!!

merci de votre aide !!!