Sub Ophé()
' Ophé Macro
' Macro enregistrée le 8/06/2009 par Gruick
i = 2
re:
If i > Cells(2 ^ 16, 1).End(xlUp).Row Then Exit Sub
If Len(Cells(i, 1)) = 3 Then
Cells(i, 24) = ""
i = i + 1
ElseIf Len(Cells(i, 1)) = 7 Then 'inserer 1 ligne
Cells(i + 1, 1).EntireRow.Insert
Rows(i).Copy Destination:=Rows(i + 1)
Cells(i, 24) = Right(Cells(i, 1), 3): Cells(i + 1, 24) = Left(Cells(i, 1), 3)
Cells(i, 1) = Left(Cells(i, 1), 3): Cells(i + 1, 1) = Right(Cells(i + 1, 1), 3)
Cells(i, 19) = Cells(i, 19) / 2: Cells(i + 1, 19) = Cells(i, 19)
Cells(i, 20) = Cells(i, 20) / 2: Cells(i + 1, 20) = Cells(i, 20)
i = i + 2
ElseIf Len(Cells(i, 1)) = 11 Then 'inserer 2 lignes
Cells(i + 1, 1).EntireRow.Insert
Cells(i + 1, 1).EntireRow.Insert
Rows(i).Copy Destination:=Rows(i + 1)
Rows(i).Copy Destination:=Rows(i + 2)
Cells(i, 24) = Right(Cells(i, 1), 7)
Cells(i + 1, 24) = Left(Cells(i, 1), 3) & Right(Cells(i, 1), 4)
Cells(i + 2, 24) = Left(Cells(i, 1), 7)
Cells(i, 1) = Left(Cells(i, 1), 3)
Cells(i + 1, 1) = Mid(Cells(i + 1, 1), 5, 3)
Cells(i + 2, 1) = Right(Cells(i + 2, 1), 3)
Cells(i, 19) = Cells(i, 19) / 3: Cells(i + 1, 19) = Cells(i, 19): Cells(i + 2, 19) = Cells(i, 19)
Cells(i, 20) = Cells(i, 20) / 3: Cells(i + 1, 20) = Cells(i, 20): Cells(i + 2, 20) = Cells(i, 20)
i = i + 3
End If
GoTo re
End Sub