vba - recherche et remplace

Bonjour à tous, J'ai un soucis avec une macro VBA. J'ouvre un CSV (séparateur point-virgule et séparateur décimal le point) J'essaie de faire une fonction recherche et remplace comme ceci : ActiveWorkbook.Sheets("Data").Range("A1:G8000").Replace What:=".", Replacement:="," Mon fichier compte...