Sub caractere() 'supprime le caractère "espace" devant et après les noms, prénoms et nationalités
' balaie les 3 colonnes D, E et F de toutes les feuilles
Dim a, i As Integer
Dim caractere As String
Dim chaine As String
Dim nombrecelule As Integer
caractere = " "
For Each feuille In Worksheets
If feuille.Name <> "Athlètes" Then
feuille.Select
Range("a2").Select
[B][COLOR=Red] nombrecellule = Range("a1").End(xlDown).Row[/COLOR][/B]
nomdefeuille = feuille.Name
For a = 3 To 5
For i = 0 To nombrecellule - 2
[B][COLOR=Red]If ActiveCell.Offset(i, a) <> "" Then[/COLOR][/B]
chaine = ActiveCell.Offset(i, a)
If Mid(chaine, 1, 1) = caractere Then ActiveCell.Offset(i, a) = Mid(chaine, 2, Len(chaine))
chaine = ActiveCell.Offset(i, a)
If Mid(chaine, Len(chaine), 1) = caractere Then ActiveCell.Offset(i, a) = Mid(chaine, 1, Len(chaine) - 1)
[B][COLOR=Red]End If[/COLOR][/B]
Next i
Next a
End If
Next feuille
End Sub