Sub recopier()
Set feuille_source = Sheets("Données")
Set feuille_cible = Sheets("Récap")
For i = 1 To feuille_source.Range("B65000").End(xlUp).Row
If feuille_source.Cells(i, 2) <> "" Then
For y = 2 To 4
'copier le contenu
feuille_cible.Cells(i, y).Value = feuille_source.Cells(i, y).Value
'copier le format
feuille_source.Cells(i, y).Copy
feuille_cible.Cells(i, y).PasteSpecial Paste:=xlPasteFormats
Next
End If
Next i
Application.CutCopyMode = False
End Sub