Re,
Commence par renommer les onglets des mois avec les accents pour que Excel les reconnaisse : Février, Août, Décembre...
Puis ce nouveau code :
Private Sub CommandButton1_Click()
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim COL As Byte 'déclare la variable COL (COLonne)
Set OD = Worksheets("BILAN") 'définit l'onglet destination OD
For Each O In Worksheets 'boucle 1 : sur tous les onglets du classeur
If O.Name <> OD.Name Then 'condition : si le nom de l'onglet de la boucle n'est pas le nom de l'onglet OD ("BILAN")
Select Case O.Name 'agit en fonction du nom de l'onglet
Case "Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre"
'définit la colonne COL en fonction du nom de l'onglet de la boucle (le mois converti en entier Byte + 1)
COL = CByte(Month("1/" & O.Name & "/2020")) + 1
For I = 7 To 77 'boucle 2 : des lignes 7 à 77
'si la valeur de la cellule ligne I colonne AC de l'onglet de la boucle n'est pas vide,
'renvoie cette valeur dans la ligne I colonne COL de l'onglet OD
If O.Cells(I, "AC").Value <> 0 Then OD.Cells(I, COL).Value = O.Cells(I, "AC").Value
Next I 'prochaine ligne de la boucle 2
End Select 'fin de l'action en fonction du nom de l'onglet
End If 'fin de la condition
Next O 'prochain onglet de la boucle 1
End Sub