Macro Dépassement de capacité

[Caninge]

Bonjour à tous,

Je viens de récupérer une macro d'un autre fichier pour l'adapter sur un nouveau :

Mais voilà une fenêtre m'indique ceci ERREUR D'EXECUTION '6'
DEPASSEMENT DE CAPACITE

Je ne trouve pas pourquoi j'ai ce problème

Merci de me donner un coup de main.

A plus


'Sub Trans_SCRABBLE()

Application.ScreenUpdating = False '-> Pour éviter les tremblements

Dim L As Integer

L = Sheets("recap").Range("B5").End(xlDown).Row + 1

With Sheets("partie")

Sheets("recap").Cells(L, 2) = .Range("I2").Value
Sheets("recap").Cells(L, 3) = .Range("F2").Value
Sheets("recap").Cells(L, 4) = .Range("N13").Value
Sheets("recap").Cells(L, 5) = .Range("N12").Value
Sheets("recap").Cells(L, 7) = .Range("N15").Value
Sheets("recap").Cells(L, 8) = .Range("N14").Value
Sheets("recap").Cells(L, 11) = .Range("N22").Value

End With

Sheets("recap").Select

Application.ScreenUpdating = True '-> Pour éviter les tremblements

End Sub

 

[Caninge]

Re : Macro Dépassement de capacité

Bonsoir à tous,


J'ai pris la solution de Alex.

Du coup je n'ai pas besoin d'envoyer une pièce jointe.

J'ai retrouvé le bouton gris "GERER LES PIECES JOINTES"

Il avait disparu bizaremment.

Merci