bonjour,
il n'y a pas d'userf 1 !?
il y a une erreur (pas de cellule correspondante) dans l'userf5 ici:
For Each Cel In ActiveSheet.Columns(33).SpecialCells(xlCellTypeConstants)
pour voir, tu te places sur le code de l'userf, et tu l'exécutes au pas à pas avec la touche F8
et j'espère que tu t'y retrouves dans tous tes
End With
End With
End With
End With
End With
End With
End With
End With
End With
End Sub
qui n'en finissent pas !?
manque de lisibilité !