Sub macro1()
[COLOR="Blue"]If Not IsEmpty(Range("C9")) [/COLOR]Then
sText = Range("B5") & Range("D5")
T = Range("C9:C13").Value
With Sheets("Données")
Set c = .Columns(3).Find(sText, LookIn:=xlValues)
If Not c Is Nothing Then
.Range(.Cells(c.Row, 4), .Cells(c.Row, 8)) = Application.Transpose(T)
End If
End With
End If
End Sub