En reprenant la solution que Marc t'avait fourni ...
Code:
Sub Recopie()
With Feuil1.Cells(3).End(xlDown)
R& = .Parent.Cells(1).CurrentRegion.Rows.Count
If .Row > 1 And .Row < R Then .AutoFill .Resize(R - .Row + 1)
End With
End Sub
Tu sélectionnes la cellule "C4"
il y a un petit carré noir en bas à droite de la cellule
Tu mets le curseur dessus (il change de forme est devient un signe +)
double clic et les données ou les formules se recopieront jusque la dernière donnée adjacente.