Sub testcopieclient2()
Dim celS As Range 'celS=cellule source
Dim col As Integer, lgC As Integer ' col=décalage de colonne, lgC=n° de ligne cible
With Feuil14
.Select
For Each celS In .Range("E3:E" & Rows.Count).SpecialCells(xlCellTypeFormulas)
If celS.Value <> "" Then
For col = 0 To 11
lgC = Feuil8.Cells(Rows.Count, col + 1).End(xlUp).Row + 1
If celS.Offset(0, col).Value <> "" Then
Feuil8.Cells(lgC, col + 1).Value = celS.Offset(0, col).Value
End If
Next
End If
Next
End With
Sheets("Formulaire de facturation").Select
End Sub