EXCEL : Ajouter .fr ou .com automatiquement

Option Explicit
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
Dim nom As String
Private Sub CommandButton1_Click()
For_X_to_Next_Ligne
End Sub
Sub For_X_to_Next_Ligne()
Dim DernLigne As Long
DernLigne = Range("A65536").End(xlUp).Row
Set FL1 = Worksheets("Feuil1")
    NoCol = 1 'lecture de la colonne 1
    For NoLig = 1 To DernLigne
        Var = FL1.Cells(NoLig, NoCol)
        extractionMots
        If nom = "orangefr" Then
       FL1.Cells(NoLig, NoCol) = Var & ".fr"
        Else
        FL1.Cells(NoLig, NoCol) = Var & ".com"
        End If
    Next
    Set FL1 = Nothing
End Sub
Sub extractionMots()
    Dim Tableau() As String
    Dim i As Integer
    'découpe la chaine en fonction des espaces "@"
    'le résultat de la fonction Split est stocké dans un tableau
    Tableau = Split(Var, "@")
    'boucle sur le tableau pour visualiser le résultat
    For i = 0 To UBound(Tableau)
        'Le résultat s'affiche dans la fenêtre d'execution de l'éditeur de macros
        Debug.Print Tableau(i)
    Next i
    nom = Tableau(1)
  End Sub