Par défaut Macro pour supprimer les espaces dans les cellules

Bonjour

J'aimerais créer une macro pour supprimer les espaces dans l'anglet First de ce classeur excel de la celulle G7 à la cellule DE999

1. Supprimer tous les espaces dans les cellules qui ne contiennent aucun caractère.

2. Supprimer tous les espaces dans les cellules qui contiennent des caractères à gauche et à droite

Pouvez-vous m'aider à réaliser cette macro ?

Merci d'avance

Bonjour et bienvenue,

Tu as oublié de joindre ton ficher.

Cdlt.

bonjour,

le voila

merci

Bonjour marruq, à tous,

Testez le code suivant:

Sub SupprEspace()
Dim t, i&, j&
   With Sheets("First")
      t = .Range("g7:de" & .Cells(.Rows.Count, "a").End(xlUp).Row)
      For i = 1 To UBound(t): For j = 1 To UBound(t, 2): t(i, j) = Trim(t(i, j)): Next j: Next i
      .Range("g7").Resize(UBound(t), UBound(t, 2)) = t
   End With
End Sub

Bonjour,

je pense que sa marche

Merci pour votre aide

Merci