Sub creation_ligne()
Dim ligne As Integer
Set Data = Range("A:F")
ligne = 1
Application.DisplayAlerts = False
While Data.Cells(ligne, 2) <> ""
Data.Cells(ligne, 1).Select
If Data.Cells(ligne, 2) = "GARMH" Then
Data.Cells(ligne + 1, 1).Select
Selection.EntireRow.Insert
Range(Data.Cells(ligne, 1), Data.Cells(ligne, 6)).Copy
Data.Cells(ligne + 1, 1).Select
ActiveSheet.Paste
Data.Cells(ligne + 1, 2).FormulaR1C1 = "MH"
Data.Cells(ligne, 2).FormulaR1C1 = "GAR"
ligne = ligne + 1
End If
ligne = ligne + 1
Wend
Application.DisplayAlerts = True
End Sub