bonjour a vous tous

j'ai récupéré un fichier sur le net qui est plein de lignes remplie de .select qui me pose a quelques endroits des soucis de suppression donc dans le bloc de code suivant
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sheets("Feuil2").Select
Range(AdrDebut).Offset(0, 0).Select
Selection = "Reference"
With Selection
    .ColumnWidth = 11
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
    With .Font
        .Size = 10
    End With
End With
j'arrive a modifier la première ligne par
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
With Sheets("Feuil2")
.Range(AdrDebut).Offset(0, 0)= "Reference"
mais pour l'autre sélection je ne sais pas par quoi la remplacer

Merci de votre aide, car il y a plein de lignes de codes comme celle la

Pascal