Sub supp()
Dim NB_COL As Integer
Dim MOIS_CHOISI As String
' remise à blanc des ancienne FAE
Sheets("FAE").Select
Range("A1").CurrentRegion.Clear
ActiveWorkbook.Names.Add "PLAGE", Range("A4").CurrentRegion
'ici je ne comprend pas l'intérêt de nommer une plage avec current qu'on vient juste d'effacer
'forcément, la "PLAGE" ne sera que la cellule A4
' Copie des nouvelles FAE
Sheets("Base").Select
MOIS_CHOISI = Range("c2").Value
Sheets("FAE").Select
Range("A1").Select
'avant de faire un coller special. il faudrait faire un copier..
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
' CELA BLOQUE A PARTIR DE LA:
' en fait. ca bloque à la ligne précédente.. on demande à la macro de coller quelque chose qu'elle n'a pas en mémoire..
'il manque le copier
'ici. je pense qu'il manque la référence à la feuille BASE.. je l'ai donc ajoutée
NB_COL = Sheets("BASE").Range("A1", Selection.End(xlToRight)).Count
For COMPTEUR = NB_COL To 8 Step -1
If Range("H1").Value <> MOIS_CHOISI Then
Range("h1", NB_COL).EntireColumn.Delete
End If
Next COMPTEUR
End Sub