Bonjour à tous, j'ai trouvé seul ( c'est rare...)
je vous joins le code qui fonctionne nickel à toutes fins utiles.
voila ma maigre contribution
Dim dercel As Range: Set dercel = Cells.Find("*", , -4123, , 1, 2)
If dercel Is Nothing Then Exit Sub
Range("F2").Select 'là où se trouve la cellule à recopier jusqu'à la fin du tableau
With Selection
If .Row < dercel.Row Then
.Resize(dercel.Row - .Row + 1).FillDown
End If
End With
Encore merci à tous les contributeurs