Bonjour
pour copier une colonne en Ligne
Voila une réponse a toi de voir
A+
Maurice
Sub Macro1()
Sheets("Fiche CR A REMPLIR").Select
If Range("B3").Value = "" Then MsgBox "PasBon": Exit Sub
Set Sh = Sheets("TABLEAU SUIVI SF6")
'Sh.Visible = -1
Lig = Sh.Range("A" & Rows.Count).End(xlUp).Row + 1
Range("B3:B13").Copy
Sh.Range("A" & Lig).PasteSpecial xlPasteValues, , , True
Range("B3:B13").ClearContents
Application.CutCopyMode = False
End Sub