Bonjour
Tu peux essayer ceci:
Public Const nbcol = 11
Sub export()
With Sheets("recap")
Set zone = .Range(.Cells(3, 1), .Cells(.UsedRange.Columns(1).Rows.Count, 1))
For Each i In zone
If i <> "" Then
Call copie(i.Value, i.Parent.Range(.Cells(i.Row, 1), .Cells(i.Row, nbcol)))
End If
Next
End With
End Sub
Sub copie(nom, ligne)
MsgBox ligne.Address
With Sheets(nom)
l = .Columns(1).Find("").Row
ligne.Copy .Cells(l, 1)
End With
End Sub