Modifier d'une cellule

Salut

svp je veux modifier toutes les cellules de la plage H9:H18 une fois pour toutes si la cellule H5 change par ex :

si H5 = 5 automatiquement la plage h9:h18 = 5 etc.....

avec ( Worksheet_Change)

merci d'avance

Bonjour toutes et tous

(merci Ric)

à tester

crdlt,

André

Bonjour à tous,

@Andre13 > relis ton message, je crois qu'il manque un petit bout ...

ric

Merci Ric ce soir je bug de trop,

désolé

Bon,jour toutes et tous,

voili voila! au cas ou je mets le code là

il peut être améliorer je pense aussi, si ce n'est pas en alphanumérique on supprime le contenu de la cellule H5 par exemple

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo plouf ' j'aime bien la mer, les vagues en cas d'erreur plouf on sort de la Sub

With Range("H5")
    If Not IsEmpty(.Value) And IsNumeric(.Value) Then Sheets("feuil1").Range("H9:h19").Value = Range("H5").Value
        End With

plouf:
Exit Sub

End Sub

cdrlt,

André

merci cordialement