Format Monétaire

Bonjour tout le monde,

je vous écrit car j'ai un souci en faite je met dans une cellule un nombre t excel me le met en monétaire alors que je veux qu'il soit en standard et j'ai tout essayer faire le format des cellule a la main et en vba mais rien ne change des que je refais la manipulation il me le met en monétaire donc es ce que quelqu'un sait d'ou sa peux venir sil vous plait. Alors que dans le feuille ou je prend les info, les donées ne sont en monétaire mais bien en standard

voici mon code si cela peux vous aider

Sub Importation()

    Dim IGP As Currency
    
    Dim NomFichier As String
    Dim Categorie As String
    Dim Eleveur As String
    Dim Adresse As String
    
    Dim NumLignecaveb As Integer
    Dim NumLignedonnee As Integer
    Dim NumLigne As Integer
    Dim Boucle As Integer
    
    Dim Cheptel As Long
    
    Dim Age As String
    
    NomFichier = ThisWorkbook.Name
    Sheets("Feuil3").Cells.Clear
    
    'ouvre le fichier caveb.csv et fait la bonne mise en page dans excel
    Workbooks.Open Filename:= _
        "\\Srv-2008\commun\13- Dossier d'échange\caveb.csv", Local:=True
                
    Workbooks("caveb").Activate
    
    NumLignecaveb = 2
    
    While Sheets("caveb").Cells(NumLignecaveb, 14) <> ""
    
        NumLignecaveb = NumLignecaveb + 1
    
    Wend
    
    'Selectionne toutes les informations du fichier de la caveb et la copie
    Range(Cells(2, 1), Cells(NumLignecaveb - 1, 14)).Select
    Selection.Copy
    
    'Active le fichier et ouvre la feuil3 et copie toutes les informations dedans
    Windows(NomFichier).Activate
    Sheets("Feuil3").Select
    Range("A1").Select
    ActiveSheet.Paste
    
    'vide la presse papier pour ne pas avoir de message
    Application.CutCopyMode = False
    Application.CutCopyMode = True
    
    'ferme le classeur caveb
    Workbooks("caveb").Close
    
    NumLignedonnee = 1
    
    While Sheets("Feuil3").Cells(NumLignedonnee, 14).Value <> ""
    
        IGP = Sheets("Feuil3").Cells(NumLignedonnee, 2).Value
        Boucle = Sheets("Feuil3").Cells(NumLignedonnee, 3).Value
        Categorie = Sheets("Feuil3").Cells(NumLignedonnee, 4).Value
        Age = Sheets("Feuil3").Cells(NumLignedonnee, 6).Value
        Cheptel = Sheets("Feuil3").Cells(NumLignedonnee, 7).Value
        Eleveur = Sheets("Feuil3").Cells(NumLignedonnee, 8).Value
        Adresse = Sheets("Feuil3").Cells(NumLignedonnee, 9).Value
        
        NumLigne = 4
        
        While Sheets("Feuil1").Cells(NumLigne, 3).Value <> IGP And Sheets("Feuil1").Cells(NumLigne, 3).Value <> ""
        
            NumLigne = NumLigne + 1
        
        Wend
        
        Sheets("Feuil1").Cells(NumLigne, 3).Value = IGP
        Sheets("Feuil1").Cells(NumLigne, 4).Value = Boucle
        Sheets("Feuil1").Cells(NumLigne, 5).Value = Categorie
        Sheets("Feuil1").Cells(NumLigne, 8).Value = Cheptel
        Sheets("Feuil1").Cells(NumLigne, 9).Value = Eleveur
        Sheets("Feuil1").Cells(NumLigne, 10).Value = Adresse
        
        'met oui si il faut tester la bete en fonction de son age
        'If Age < 50 And Age <> "" Then
        
            'Sheets("Feuil1").Cells(NumLigne, 7).Value = "Oui"
        
       'End If
        
        NumLignedonnee = NumLignedonnee + 1
    
    Wend
    
    Columns("C:C").NumberFormat = "General"
                
End Sub

je vus remercie par avance de votre aide

cordialement