Singulier et pluriel dans ce code

Bonjour

Dans mon fichier j'ai des onglets nommés xpoules x représentant le nombre de poules

pour 2 3 etc poules pas de problèmes mais pour 1poule ,je ne mets pas de s et là la macro ne fonctionne pas

comment modifier

je vous remercie

If nbPoules >= 1 And nbPoules <= 10 Then
        Set wsDestination = ThisWorkbook.Sheets(nbPoules & "poules")
        Set colDestination = wsDestination.Range("A2") ' Première cellule destination

Hello,

Ta coquille provient de cette ligne vu que « poules » il y a un s et que ton onglet n’en a pas et bien Hope ça ne fonctionne pas

Set wsDestination = ThisWorkbook.Sheets(nbPoules & "poules")

Une proposition

If nbPoules >= 1 And nbPoules <= 10 Then
    Dim nomFeuille As String
    nomFeuille = nbPoules & IIf(nbPoules = 1, "poule", "poules")
    Set wsDestination = ThisWorkbook.Sheets(nomFeuille)
    Set colDestination = wsDestination.Range("A2")
End If

@+

Bonjour BAROUTE78

Merci pour ta solution nickel

Crdlt