bonjour,
voici mon pb car le code que j'ai fait ne marche pas:
'selectionne automatiquement la colonne F
Range("F2").Columns.Select
For Each cell In Selection
'la 1ere cellule n'est pas un nombre, on passe donc à la cellule suivante
If cell.Value = "Présenté" Then
Resume Next
ElseIf cell.Value > 1 Then
'si la quantite du produit est superieure a 1
qte = cell.Value
qte = qte - 1
For i = 1 To qte
'on selectionne la cellule en dessous
cell = cell.Next.Columns.Select <-ici cela doit etre la cellule en dessous de celle qui est selectionne
'on insert un nombe de ligne egal à qte
cell.EntireRow.Insert
Next i
'on revient a la cellule de depart
cell = cell.Previous.Columns.Select<-ici on revient a la cellule de depart

End If
Next cell

End Sub
en fait, j'aimerais ajouter un certain nombre de lignes qui se trouveront en dessous de la cellule sur laquelle on fait la manip'
Merci d'avance