Sub Retour_en_etude()
Dim C As Range, Num As Variant, Col As Variant
Num = InputBox("Entrez le numéro de projet") 'Saisie du numéro de projet
If Num = "" Then Exit Sub
Col = Application.Match("Projet " & Num, [2:2], 0)
If Not IsNumeric(Col) Then
MsgBox "Projet " & Num & " non trouvé"
Exit Sub
End If
For Each C In Range("H3", Cells(Rows.Count, "H").End(xlUp)) 'Sélectionne la plage H3 à la dernière cellule remplie de la colonne H
If C.Offset(, -4) = 1 Then '"-4" est le décalage vers la gauche entre les colonnes H et D
'C.Value = Cells(C.Row, Col).Formula
C.FormulaR1C1 = Cells(C.Row, Col).FormulaR1C1
End If
Next C
End Sub