Merci, ça avance beaucoup !
Sub essai()
With Worksheets("21.04.2020").Range("A1:A3")
Set c = .Find(Worksheets("Recap").Range("A4").Value, LookIn:=xlValues)
'If Not c Is Nothing Then
firstAddress = c.Address
'Do
Range("A4").Offset(0, 1).Select
ActiveCell.Value = Range(firstAddress).Offset(0, 2).Value
' Set c = .FindNext(c)
' Loop While Not c Is Nothing
' End If
End With
End Sub
J'ai un soucis avec la recherche, dans l'état de mon code présent sur le post : l'outil de recherche ne fait rien par contre il sélectionne bien Range("A4").Offset(0, 1).Select
Si c'est le code sur mon post d'origine, la macro tourne en boucle est impossible de l'arrêter (et a priori l'outil de reche ne marche pas)
Quelqu'un pourrait m'aider avec l'outil de recherche ?
Merci !!!!!!!!!