Merci beaucoup mais je ne comprends pas comment intégrer l'une ou l'autre de vos réponses dans le code suivant :
If Left(Cells(i, 1), 3) = "Tél" Then
Cells(compteur + 1, "H") = Cells(i, 1) 'Tél
Chaine = Cells(i - 1, 1)
Cells(compteur + 1, "E") = Left(Chaine, InStr(Chaine, "-") - 1) 'ce que j'ai essayé de faire
End If
L'objectif est que si la cellule (ligne, 1) commence par tél,
ALORS Cells(compteur + 1, "H") = Cells(i, 1) 'Tél (pas de problème pour spécifier cela),
ET Cells(compteur + 1, "E") est égal à la chaine de caractères à droite du "-" dans la cellule au dessus de celle commencant par tél.
Je vous remercie.