Copier coller des données d'une colonne variable de plusieurs onglets

Bonjour,

Je suis débutante en Excel VBA et j'aurais besoin de votre aide pour effectuer une programmation qui m'a l'air assez facile mais difficile avec mon niveau… Il s'agit d'une mise à jour automatique de données.

En effet, je possède plusieurs onglets avec les mêmes donnéees mais dont la taille des colonnes varient en fonctions des informations.

1er onglet: france

2ème onglet : angleterre

3ème onglet: martinique

Je souhaiterais regrouper les données de la colonne B2 (tous les noms) les unes à la suite des autres dans la colonne F de la feuil1.

J'ai commencer un bout de code VBA mais cela n'aboutit à rien...

Vous trouverez en capture d'écran ce que je souhaite que la macro effectue et également le fichier Excel

Merci d'avance pour votre aide!

Bonsoir Kiwi123

Voici un code qui fonctionne avec quelques explications

Public Sub youtry()
  Dim Sht As Worksheet
  Dim dLig As Long
  ' Pour chaque feuille du classeur
  For Each Sht In ThisWorkbook.Sheets
    ' Si la feuille n'est pas la récap
    If Sht.Name <> "Feuil1" Then
      ' Dernière ligne de la feuille
      dLig = Sht.Range("B" & Rows.Count).End(xlUp).Row
      ' Inscrire les données à la suite les unes des autres
      With Sheets("Feuil1")
        ' .Range("F" & Rows.Count).End(xlUp) = se positionner sur la dernière cellule remplie
        ' .Offset(1, 0) = utiliser la cellule 1 ligne en dessous
        ' .Resize(dLig - 2, 1) = redimensioner la plage rdevant recevoir les données
        .Range("F" & Rows.Count).End(xlUp).Offset(1, 0).Resize(dLig - 1, 1).Value = _
          Sht.Range("B2:B" & dLig).Value
      End With
    End If
  Next Sht
End Sub

A+

Bonjour BrunoM45,

Ton code fonctionne parfaitement!

Merci pour ton aide et bonne journée