Merci énormément pour cette aide.
Afin de ne plus reproduire la même erreur, pouvez vous brièvement m'expliquer ce les lignes de code modifiées à savoir :
AD = Me.ListBox1.List(Me.ListBox1.ListIndex, 3)
Set c = Sheets("Planning").Columns(4).Find(AD, LookIn:=xlValues, lookat:=xlWhole)
For n...