Bonjour le forum,
Voilà à partir de la premiere cellule A qui est vide, la fonction ajout de mois bloque pour tout le reste des lignes!
Possible de prendre en charge la fonction de sort que resoudre le probleme?
Crdt
Sub Code5AjouterMois()
Dim MaCellule As Object
For Each MaCellule In Range("A2", Range("A2").End(xlDown))
MaCellule.Value = Range("Feuil1!H1") & MaCellule.Value
Next MaCellule
Reponse = MsgBox("Voulez-vous detecter les code BA erronés?", vbYesNo, "Demande de confirmation")
If Reponse = 7 Then Exit Sub
Call Code6TestCouleurs
End Sub