Subscript out of range

Salut le forum,

que veut dire l'erreur "Subscript out of range" pour la ligne en rouge svp?

Private Sub enreg_Click()

Dim ligne As Integer

With Sheets("Répertoire")

ligne = .Range("A65536").End(xlUp).Row + 1

.Cells(ligne, 1) = Sheets("Inscription").Cells(20, 2).Value

.Cells(ligne, 2) = Sheets("Inscription").Cells(21, 2).Value

.Cells(ligne, 3) = Sheets("Inscription").Cells(22, 2).Value

.Cells(ligne, 4) = Sheets("Inscription").Cells(23, 2).Value

.Cells(ligne, 5) = Sheets("Inscription").Cells(24, 2).Value

.Cells(ligne, 6) = Sheets("Inscription").Cells(25, 2).Value

.Cells(ligne, 7) = Sheets("Inscription").Cells(26, 2).Value

.Cells(ligne, 8 ) = Sheets("Inscription").Cells(27, 2).Value

.Cells(ligne, 9) = Sheets("Inscription").Cells(28, 2).Value

.Cells(ligne, 10) = Sheets("Inscription").Cells(29, 2).Value

.Cells(ligne, 11) = Sheets("Inscription").Cells(30, 2).Value

.Cells(ligne, 12) = Sheets("Inscription").Cells(31, 2).Value

.Cells(ligne, 13) = Sheets("Inscription").Cells(32, 2).Value

.Cells(ligne, 14) = Sheets("Inscription").Cells(33, 2).Value

.Cells(ligne, 15) = Sheets("Inscription").Cells(34, 2).Value

End With

With Sheets("Inscription")

.Range("B1:B15").ClearContents

End With

Call Trier

End Sub

Merci

OK je suis désolé de vous avoir dérangés. En l'écrivant ici, je me suis rendu compte de mon erreur.