Remplir Plage Cellule

Salut cher Tous

J'aimerais renseigner une plage de cellule a partir de la valeur entrée dans la cellule "C1"

Exemple si C1 = 4 Range ("C4: F4").value= 5

C1= 6 Range("C4:F6") .Value =5

Débutant que je suis j'ai fais une macro pour le faire mais elle ne fonctionne pas. Pouvez vous m'aider à arranger mon code ? Merci

13ktm.xlsm (16.08 Ko)

Slt,

Option Explicit

Sub Select_()
Dim X As Integer
X = Range("C1").Value
If X >= 4 Then Range("C4:F" & X).Value = 5 Else Exit Sub
End Sub

Bonne nuit

Merci pour l'aide. Je n'étais pas loin de réussir alors !