Ajout de Offset

Bonjour le forum

j'aimerais ajouter plusieurs "Offset",mais que le code soit sur une même ligne.

Voici le code que j'ai essayé mais il y a des erreurs de syntaxe.

Quelqu'un aurait t'il une idée?

Merci.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Cell As Range
For Each Cell In Range("a2:a300")
If Cell = "GECA" Or Cell = "GEGA" Or Cell = "GETO" Or Cell = "GEXI" Or Cell = "GOCA" Or Cell = "GOGA" Or Cell = "GULE" Or Cell = "GUMI" Or Cell = "GUMO" Then Cell.Offset(0, 1) = "PARIS SAINT LAZARE" , Cell.Offset(0, 2) = "ACHERES", Cell.Offset(0, 3) ="ARGENTEUIL"
Next
End Sub

Bonjour,

remplace les virgules par 2 points (:)

Dim Cell As Range
For Each Cell In Range("a2:a300")
If Cell = "GECA" Or Cell = "GEGA" Or Cell = "GETO" Or Cell = "GEXI" Or Cell = "GOCA" Or Cell = "GOGA" Or Cell = "GULE" Or Cell = "GUMI" Or Cell = "GUMO" Then Cell.Offset(0, 1) = "PARIS SAINT LAZARE": Cell.Offset(0, 2) = "ACHERES": Cell.Offset(0, 3) = "ARGENTEUIL"
Next

bon après midi

@+

Merci Pierrot93

Bon après-midi à toi aussi