Petit problème de syntaxe

Bonjour à tous,

Je reste coincé sur un petit bout de macro dont je n'arrive pas à corriger la syntaxe

Le but de cette sub est d'incrementer la dernière ligne de mon tableau sur autant de ligne que calculer. ( a)

Voici mon code

Sub Macro1()
'
' Macro1 Macro
'
Dim ColDeb As Integer, ColFin As Integer
Dim LigDeb As Long, LigFin As Long

With Wshebdo ' mon onglet

    Wshebdo.[A380].Select ' premiere cellule de mon tableau
    AgAv = Range(Selection, Selection.End(xlDown)).Count ' nombre de ligne de mon tableau avant changement
    AgCh = WsPrm.Range("Agmodif").Count ' nombre de ligne apres changement

    If AgAv >= AgCh Then
    Exit Sub
    Else
    a = AgCh - AgAv ' calcule du nombre de ligne en plus
    End If
    ColDeb = 3 '1ere Colonne du tableau
    ColFin = .Cells(1, Columns.Count).End(xlToLeft).Column ' derniere Colonne du tableau
    LigDeb = 380 + AgAv 'ligne à copier
    LigFin = LigDeb + a 'Dernière ligne d'incrementtation
End With
With Wshebdo
    With Range(Cells(LigDeb, ColDeb), Cells(LigDeb, ColFin)).AutoFill_
    Destination:=Range(Cells(LigDeb, ColDeb), Cells(LigFin, ColFin)), Type:=xlFillDefault

    End With
End With

End Sub

Si vous avez des idées pour me corriger ca,, j'y suis depuis ce matin et impossible de trouver cette erreur.

Bonjour,

Que penses-tu de l'idée de joindre un fichier à ta demande ?

Cdlt.

Et Voilà,

L'action se déroule sur l'onglet hebdo, depuis le module 2. Ce module intégrera ma sub MisajAg qui se situe sur le usermenu.

Si ça peut vous aider, ça m'aidera aussi !

Je cloture. j 'ai completement changer de méthode pour incrémenter mes lignes, parcontre j'ai jamais trouver l'erreur de syntaxe