merci beaucoup !
ça marche sur le fichier exemple,
deux petites choses, quand je colle de nouvelles données, j'ai ce message qui s'affiche :
Par ailleurs, je voudrai imprimer jusqu'à la colonne M incluse, j'ai simplement modifier dans le VBA, ça vous semble correct :
Sub zone_imp()
derlin = Range("A" & Rows.Count).End(xlUp).Row
debut = ""
For n = 1 To Range("A" & Rows.Count).End(xlUp).Row
If Range("A" & n) = "Matricule :" Then
If debut = "" Then
debut = n
Else
fin = n - 2
End If
End If
If debut <> "" And fin <> "" Then
zone = zone & "$A" & debut & ":$M" & fin & ","
debut = fin + 2
fin = ""
End If
Next
zone = zone & "$A" & debut & ":$M" & Range("A" & Rows.Count).End(xlUp).Row + 2
ActiveSheet.PageSetup.PrintArea = zone
End Sub
j'ai encore beaucoup de mal avec ce type de langage...
Merci encore !