Bonjour Pihuce, bonjour le forum,
En effet c'est bien plus parlant... Je te propose le code ci-dessous (non testé) à appliquer au bouton IMPRIMER TOUS :
Public Sub Boucle()
Dim F As Object 'déclare la variable F (onglet Fiche de chargement)
Dim L As Object 'déclare la variable L (onglet Liste des chargements)
Dim LA As Integer 'déclare la variable LA (Ligne de la cellule Active)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim LI As Integer 'déclare la variable LI (LIgnes)
Application.ScreenUpdating = False 'masque les rafraîchiessements d'écran
Set F = Sheets("fiche de chargement") 'définit l'onglet F
Set L = Sheets("liste des chargements") 'définit l'onglet L
L.Select 'sélectionne l'onglet L
LA = ActiveCell.Row 'définit la ligne de la cellule active LA
'définit la ligne de la dernière cellule éditée de la colonne 3 (=C)
DL = Cells(Application.Rows.Count, 3).End(xlUp).Row
F.Select 'sélectionne l'onglet F
For LI = LA To DL 'boucle sur toutes les lignes LI de LA à DL
F.Range("B3").Value = L.Cells(LI, 3) 'récupère en B3 de l'onglet F la valeur de la ligne LI, colonne 3, de l'onglet L
F.Calculate 'lance le calcul pour mettre à jour l'onglet F
Call IMPRESSION 'lance la procédure "IMPRESSION"
Next LI 'prochaine ligne de la boucle
Application.ScreenUpdating = True 'affiche les rafraîchiessements d'écran
End Sub