Alors effectivement c'est faisable comme ça mais j'ai une incompabilité lorsque je veux sauvegarder le fichier après l'impression / et ou après modification de la cellule LigFin si vous avez une idée histoire que je ne finisse pas avec un
One error resume next
[Résolu]
Sub Macro1()
Dim i, j, k As Long
ActiveSheet.Unprotect 'Password:="ed"
i = Range("LigDep").Value
If WsCent.Cells(i, 1) <> "" Then
j = Range(Cells(i, 1), Cells(i, 1).End(xlDown)).Rows.Count - 1
k = i + j
WsCent.Range(Cells(i, 1), Cells(k, 1)).Select
WsCent.Range(Selection, Selection.End(xlToRight)).Select
Selection.PrintOut Copies:=1, Collate:=True
WsCent.Range("Ligfin") = k
Else
MsgBox "Toutes les feuilles sont déjà imprimées", 48, "Impression"
derligne = ActiveSheet.Range("A1048576").End(xlUp).Row + 1 'recherche dernière ligne col A non utilisé
ActiveSheet.Range("A" & derligne).Select
ActiveSheet.Protect ' Password:="ed"
'ActiveWorkbook.Save 'ici, ici, ici,
End If
End Sub