Enregistrer au format pdf un fichier par valeur différente dans une colonne

Bonjour,

Toujours débutant.
J'essaye simplement d'enregistrer mon fichier en format pdf pour chaque valeur différente dans la colonne A.

Pour plus d'information, la colonne A est remplie avec des Noms (il y a toujours plusieurs fois le même nom) et les colonne suivantes avec différentes information.

j'aimerais donc enregistrer un fichier PDF par personne automatiquement avec comme nom de fichier le nom indiqué dans la Cellule A.

Pour ce faire j'effectue un filtre automatique sur la colonne A avec une boucle for.

Sub Enreg()
Dim J As Integer
Dim rng As Range
Dim cellule As Range
Set cellule = Range("A" & "J")
J = 2
Set rng = Range("A2:A580")
For Each cellule In rng
    If cellule("A" & J) = cellule("A", J - 1) Then
    ActiveSheet.Range("$A$2:$C$580").AutoFilter Field:=1, Criterial:=cellule
    ActiveSheet.eportasfixedformat Type:=xlTypePDF, Filenam:= _
    "C:\Utilisateurs\tomle\Documents\TSreport\Timesheet_report & cellule.value.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
    J = J + 1
    Else
    End If
    Next
End Sub

Je reçois le message d'erreur la méthode 'Range' de l'objet'_Global' a echoué.

Pourriez-vous me dire ce qui bloque ?

Merci beaucoup d'avance

Bonjour,

Tu as de nombreuses erreurs orthographiques, tu mélanges les variables et les constantes, je t'ai fait un fichier qui fonctionne afin que tu comprennes tes erreurs. Je te laisse l'étudier. Mais il reste largement optimisable (pas de comparaison ligne à ligne, range dynamique, etc ...)

Bonne soirée.