'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
Partager