Option Explicit
Function FeuilleExiste(wk As Workbook, stFeuille) As Boolean
On Error Resume Next
FeuilleExiste = Not (wk.Sheets(stFeuille) Is Nothing)
End Function
Sub copiedecellule()
'Si la feuille "crédit bail1" existe alors copier la cellule B9 de cette feuille dans la cellule A9 de la feuille "récapitulatif"
If FeuilleExiste(ThisWorkbook, "crédit bail1") Then
Sheets("récapitulatif").Range("A9") = Sheets("crédit bail1").Range("B9")
Else
End If
'Si la feuille "crédit bail2" existe alors copier la cellule B9 de cette feuille dans la cellule A10 de la feuille "récapitulatif"
If FeuilleExiste(ThisWorkbook, "crédit bail2") Then
Sheets("récapitulatif").Range("A10") = Sheets("crédit bail2").Range("B9")
Else
End If
End Sub