Je me disais bien aussi que ca n'enthousiasmerait pas grand monde ^^

Pour copier ca va j'ai fais avec les moyens du bord voila ce que j'ai :
Je fais une création de feuille suivi d'un copier coller de A65 jusqu'a ma case active (cette derniere case j'aimerais qu'elle soit trouvée tte seule ^^)
Et la plage sélectionnée est copiée dans la feuille crée au préalable

'Création d'une nouvelle feuille
Sheets("Projection").Select
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "Nouvelle"
'Copier/Coller des cellules
Sheets("Projection").Select
Range("A65", ActiveCell).Select
Selection.Copy
Sheets("Nouvelle").Select
Range("A1").Select
ActiveSheet.Paste



End Sub

Personne ?

Bonjour,

Pour trouver la dernière cellule non vide d'une ligne tu peux faire comme ceci :

Dim i As Long
i = 1
While Cells(65,i).value <> ""
i = i + 1
Wend
MsgBox "La dernière cellule non vide de la ligne 65 est : " & i - 1

Oui en effet ca peut m'aider !
Mais la recherche serait plus pertinente en cherchant dans la colonne, ici ma colonne C
Il ne doit pas y avoir bcp de modifs je pense

Re,

Non c'est facile.
Dans Cells(65, i), le premier chiffre (65) c'est la ligne et le deuxième (i) c'est la colonne. Il suffit de donner à i la valeur numérique de la colonne. C'est 3 pour la colonne C ... et mettre i = 3 avant le while ...

;o)

polux «Ce que l'on conçoit bien s'énonce clairement, Et les mots p­our le dire arrivent aisément.» 
Nicolas Boileau

Merci je vais essayer d'avancer dans ce sens ^^

De rien,

;o)
«Ce que l'on conçoit bien s'énonce clairement, Et les mots p­our le dire arrivent aisément.» 
Nicolas Boileau