Bonjour Volcom, bonjour le forum,
Je te propose la macro événementielle Change à placer dans le composant correspondant (Feuil1(Feuil1) par exemple) :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$1" Then Exit Sub 'si le changement a lieu ailleurs qu'en B1, sort de la procédure
Range(Cells(1, 3), Cells(1, Application.Columns.Count)).ClearContents 'efface le contenu de toutes les cellules de la ligne 1 (en partant de la colonne C)
'renvoie dans la ligne 1, à partir de la colonne C, autant de fois la valeur de la cellule A1 que le nombre indiqué en B1
Range("C1").Resize(1, Range("B1").Value).Value = Range("A1").Value
End Sub
[Édition]
Bonjour Patrick on s'est croisé...