Merci pour ta réponse Paf
Mon problème c'est que je ne connais, ni la ligne, ni la colonne de fin (variable selon les utilisateurs)
Par contre la colonne et la ligne du début, oui
J'ai bien rédigé :
ActiveSheet.Range("A65536").End(xlUp).Row
mais je n'arrive pas à formuler correctement
Je reprend différemment : si en colonne A et en colonne D on a le même nombre de lignes et si on a le même nombre de colonnes pour tout le tableau, vous pouvez utiliser derligne et dercol dans:
VB:
If Not Intersect(Range(Cells(2, 4), Cells(derligne, dercol)), Target) Is Nothing Then
NB: j'avais omis de supprimer .Select dans la proposition du post 2
A+
Edit : derligne et dercol doivent être initialisés avant leur utilisation