Sub copie()
Jour = Range("F2")
With Sheets("donnees")
Set ici = .Rows(2).Find(Jour, lookat:=xlWhole)
If Not ici Is Nothing Then
Sheets("Feuil1").Range("F4:F54").Copy Destination:=.Cells(3, ici.Column)
End If
End With
End Sub
Hello
avec ce code a mettre dans un module standar
VB:Sub copie() Jour = Range("F2") With Sheets("donnees") Set ici = .Rows(2).Find(Jour, lookat:=xlWhole) If Not ici Is Nothing Then Sheets("Feuil1").Range("F4:F54").Copy Destination:=.Cells(3, ici.Column) End If End With End Sub