'Tu n'auras qu'à changer les constantes ici si tu modifies le nom des onglets ou encore
'la ligne de départ du tableau.
Private Const CALCULS = "Tableau"
Private Const FEUILLE_SYTHESE = "Synthèse"
Private Const PremiereLigneTableau = 1
Sub test()
Dim DerniereLigneTableau As Long, DerniereLigneVide As Long
Dim Valeur15 As Variant, Valeur18 As Variant, Valeur22 As Variant, Valeur27 As Variant, Valeur30 As Variant
Application.ScreenUpdating = False 'Gèle l'écran pendant l'exécution de l'opération
Sheets(CALCULS).Select 'Sélectionne la feuille contenant le tableau
DerniereLigneTableau = Cells(65536, 1).End(xlUp).Row 'Détermine la dernière ligne du tableau
For i = PremiereLigneTableau To DerniereLigneTableau 'Crée une boucle sur tout le tableau
Sheets(CALCULS).Select 'Sélectionne la feuille contenant le tableau
If Cells(i, 1).Value = 1 Then 'Si la colonne cellule i de la colonne 1 contient le chiffre 1 alors
Valeur15 = Cells(i, 15).Value 'On donne a des variables le contenu des cellules des colonnes recherchées
Valeur18 = Cells(i, 18).Value
Valeur22 = Cells(i, 22).Value
Valeur27 = Cells(i, 27).Value
Valeur30 = Cells(i, 30).Value
Sheets(FEUILLE_SYTHESE).Select 'Sélectionne l'onglet Synthèse
DerniereLigneVide = Cells(65536, 1).End(xlUp).Offset(1, 0).Row 'Détermine la ligne sur laquelle on peut inscrire l'info
Cells(DerniereLigneVide, 1).Value = Valeur15 'Rempli l'onglet avec les valeurs des variables remplies plus haut.
Cells(DerniereLigneVide, 2).Value = Valeur18
Cells(DerniereLigneVide, 3).Value = Valeur22
Cells(DerniereLigneVide, 4).Value = Valeur27
Cells(DerniereLigneVide, 5).Value = Valeur30
End If
Next i 'Passe à la prochaine ligne
End Sub