Je ne peux malheureusement pas posté mon fichier ici, mais la partie de mon code qui pose problème est la suivante:
For Each Cel In Plage2
i = Cel.Row
If .Cells(i, 2).Value = Parent And .Cells(i, 4).Value = valeurcc And .Range("B" & i).Font.Bold = True Then
C2_Desc = .Cells(i + 1, 5).Value
If ICP = "Entities" Then
.Range("A" & i).EntireRow.Insert
.Range("A" & i & ":" & "Z" & i).Font.Bold = False
.Cells(i, 2).Value = Account_Code
.Cells(i, 3).Value = Account_Desc
.Cells(i, 4).Value = valeurcc
.Cells(i, 5).Value = C2_Desc
.Cells(i, 6).Value = "[ICP None]"
.Cells(i, 8).Value = "B"
.Cells(i, 9).Value = "N"
.Range("J" & i).Interior.Color = RGB(255, 255, 196)
.Cells(i, 10).NumberFormat = "#,##0;(#,##0);-"
.Cells(i, 10).Value = "0"
.Range("M6").AutoFill Destination:=.Range("M6:M" & i)
.Range("O6").AutoFill Destination:=.Range("O6:O" & i)
Cel = Cel + 1
End If
End If
Next Cel
Je reçois une message d'erreur de type 13, Incompatibilité de type. Car Cel ne peut pas s'incrémenter de 1. Lorsque j'exécute pas à pas avec F8, mon curseur indique "CC50" lorsque je le positionne sur Cel.
Le truc c'est qu'il est nécessaire que je fasse une incrémentation dans la boucle If car sinon ma macro tourne à l'infini. En effet, je rajoute une ligne au début du second if, du coup je retraite la 3ème ligne indéfiniment..
Merci pour ta réponse m3ellem !
SkillzZ