Bonjour Alban,
si il ne te manque que des 3, cette formule devrait résoudre tes problèmes et te mettre une ligne avec le 3 dans la 1ère colonne, change la valeur max de "i" si tu veux balayer plus loin!
For i = 1 To 20
If Cells(i, 1) = 1 Then
If Cells(i + 1, 1) = 2 Then
If Cells(i + 2, 1) = 3 Then
Else: Rows(i + 2).Select
Selection.Insert Shift:=xlDown
Cells(i + 2, 1) = 3
End If
End If
End If
Next i
(en haut des posts)