[VBA] Suppression une partie du texte

Oui car en fait le sujet que j'avais avant servais a récupérer plusieurs infos et la il y a une info qui a besoin de suppression de caractère..

Je vien de mettre ceci :

Dim derniereLigne4 As Integer
Dim monTexte4 As String

monTexte4 = Mid(Feuil1.Cells(11, B), 4, 10)

derniereLigne4 = Sheets(1).Range("a27").End(xlDown).Row - 27

For i = 1 To derniereLigne4
Sheets(2).Range("D1").Offset(i, 0).Value = monTexte4
Next

mais j'ai une erreure : Erreure définie par l'application ou par l'objet.

Normalement quand le message d'erreur apparait il y à un bouton débogage
Tu peux appuyer dessus et me dire si une des lignes est surlignée en jaune?

Oui c'est celle ci : monTexte4 = Mid(Feuil1.Cells(11, B), 4, 10)

Oui en effet, il faut indiquer le n° de la colonne et pas sa lettre

remplace le B par 2

Par ailleurs j'ai toujours du mal à saisir ce que tu cherche à faire

Ha d'accord !

Et ben je t'explique comme je peux ^^ :

J'ai un premiere fichier ou il y a un certain nombre de ligne (inconnu a chaque fois)
je parcour les lignes pour connaitre le nombre qu'il y a exactement.. mais cela dépend des fichiers.. et dans la deuxieme feuille du fichier excel je dois récupérer la valeur de la cellule B11 ( de la premiere feuille) et l'écrir autant de fois qu'il existe de ligne.... Mais comme cette cellule est sous cette forme : xxxxxxxxx xx xxxxxxxxx xx 0123456789 xx.xx.xxxx
je ne dois récupérer que le 0123456789