Suite de mon idée.
Ce fichier est à adapter en fonction du nombre d'enregistrements.
If ligne > nbe + 35 And ligne < nbe + 43 Then
WsC.range("G" & ligne - (nbe + 35)) = range("A" & ligne + 9)
End If
If ligne > nbe + 42 And ligne < nbe + 50 Then
WsC.range("H" & ligne - (nbe + 42)) = range("A" & ligne + 9)
End If
C'est un peu lourd mais ça marche,
Continuer le code avec le couple de colonnes suivantes, etc. en ajoutant 7 à chaque fois aux chiffres existants.
Idem pour la macro MiseEnForme
range("A1:H7").Select
Modifier la colonne H7 avec la bonne colonne
Idem pour la macro Imprime (autant de If End If qu'il y a de couples de colonnes)
If range("G1") <> "" Then
range("G1:H7").PrintPreview ' changer en PrintOut
End If
Cdt
Henri