Code en automatique

Bonjour

Je recherche le moyen de mettre ce code en automatique: C'est à dire je tape les deux prénoms dans la cellule et j'ai comme résultat ceci ex; Je tape Pierre Paul ... j'ai Pierre et Paul

  Columns("C:C").Select
Selection.Replace What:=" ", Replacement:=" et ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Avec ce code sa marche mais avec un CommandButton et j'aimerai l'avoir en automatique

D'avance merci à qui pourra m'aider.

Cordialement

Maval

Bonjour

A placer dans le module de la feuille concernée

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  If InStr(1, Target, " et ") = 0 Then
    Target.Replace What:=" ", Replacement:=" et ", LookAt:=xlPart, _
          SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
          ReplaceFormat:=False
  End If
  Application.EnableEvents = True
End Sub

Re,

Je te remercie pour le code mais le problème et qu'il fonctionne dans toutes les cellules alors que j'aimerai qu'il fonctionne que dans la colonne "C"

@+

et merci encore

Bonjour

Modifies ta macro

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column <> 3 Then Exit Sub
  Application.EnableEvents = False
  If InStr(1, Target, " et ") = 0 Then
    Target.Replace What:=" ", Replacement:=" et ", LookAt:=xlPart, _
          SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
          ReplaceFormat:=False
  End If
  Application.EnableEvents = True
End Sub

Re,

Je te remercie beaucoup super sympa vraiment Nickel...

Bonne soirée

@+

Max