Re : Recherche 1° cellule
Rebonjour , mais mon probleme n'ai pas resolu car la colonne change selon la date ,
donc je suis oblige de me servir du code ci dessous
With Worksheets(1).Range("E5:dc35")
Set c = .Find(medecin, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Range("E50").Value = c.Value
Range("F50").Value = c.Offset(0, 1).Value
Range("B50").Value = c.Offset(0, -2).Value
Range("C50").Value = c.Offset(0, -3).Value
'c'est ici que je rencontre mon problème
Range("D50").Value = c.Offset( ici , -4).Value '-15
Rows("50:50").insert Shift:=xlDown
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
Merci a toi