ah ok j'ai crois que j'ai compris pourquoi tu mets pas range("feuil1!a45") = "" ça t'efface ce qu'il y a dans ta case. et si tu veux vraiment faire une selection utilise plutot cells -> cells(1,45) comme ça c'est toi qui paramètre quand tu veux la case a effacer, et si tu veux tout une colone tu met:
Dim i As Integer i=0 Do Until Cells(1, i+1 )<>"" 'le fait jusqu'a ce que la case suivante soit vide i = i + 1 'incremente la variable et donc selectionne la case suivante Cells(1,i)="" 'remplace ce qu'il y a dans la case par un vide loop
voilà j'espère avoir pu t'aider, bon prog a+
|