Var = InputBox("Mot à rechercher ?")

Sub Macro1()
Dim O1 As Worksheet 'déclare la variable O1 (Onglet 1)
Dim O2 As Worksheet 'déclare la variable O2 (Onglet 2)
Dim BE As Variant 'déclare la variable BE (Boîte d'Entrée)
Dim R As Range 'déclare la variable R (Recherche)
Dim T1 As String 'déclare la variable T1 (Texte 1)
Dim T2 As String 'déclare la variable T2 (Texte 2)
Dim LI As Integer 'déclare la variable LI (LIgne)

Set O1 = Sheets("Feuil1") 'définit l'onglet O1
Set O2 = Sheets("Feuil2") 'définit l'onglet O2
BE = Application.InputBox("Mot à rechercher ?", Type:=3) 'définit la boîte d'entrée BE
If BE = False Or BE = "" Then Exit Sub 'si bouton [Annuler] ou si valeur non renseignée, sort de la procédure
'définit la recherche R (recherche la valeur entière de BE dans la colonne 1 (=A) de l'onglet O1)
Set R = O1.Columns(1).Find(BE, , xlValues, xlWhole)
If Not R Is Nothing Then 'condition : si il existe au moins une occurrence trouvée
    Select Case R.Offset(0, 1).Value 'agit en fonction de la valeur la cellule à droite de l'occurrence trouvée
        Case "homme" 'cas "Homme"
            T1 = "Nom du jeune homme" 'définit le texte T1
            T2 = "Prénom du jeune homme" 'définit le texte T2
        Case "femme" 'cas "femme"
            T1 = "Nom de la jeune femme" 'définit le texte T1
            T2 = "Prénom de la jeune femme" 'définit le texte T2
        Case Else 'autre cas
            MsgBox "Civilité inconnue !" 'message
            Exit Sub 'sort de la procédure
    End Select 'fin de l'action en fonction de ...
    'définit la ligne LI (1 si A1 est vide, sinon la première celllule vide de la colonne 1 (=A) de l'onglet O2)
    LI = IIf(O2.Range("A1") = "", 1, O2.Cells(Application.Rows.Count, 1).End(xlUp).Row + 1)
    'récupération des données
    O2.Cells(DL, 1) = T1
    O2.Cells(DL, 2) = R.Offset(0, 2).Value
    O2.Cells(DL, 3) = "age"
    O2.Cells(DL, 4) = R.Offset(0, 4).Value
    O2.Cells(DL + 1, 1).Value = T2
    O2.Cells(DL + 1, 2).Value = R.Offset(0, 3).Value
    O2.Cells(DL + 1, 3).Value = "ville"
    O2.Cells(DL + 1, 4).Value = R.Offset(0, 5).Value
Else 'sinon (si il n'existe aucune occurrence)
    MsgBox Chr(34) & BE & Chr(34) & " n'a pas été trouvé !" 'message
End If 'fin de la condition
End Sub

var = InputBox("Mot à rechercher ?") 

Sub test()
    Dim var
    
    With Worksheets("feuil1")
      var = InputBox("Mot à rechercher ?") '******ICI
      
      If IsNumeric(var) Then
        var = CLng(var)
      End If
        derlig = .Range("A" & Rows.Count).End(xlUp).Row
        For Each Cell In .Range("A1:A" & derlig)
            If Cell = var Then
                If Cell.Offset(0, 1) = "homme" Then
                    txt1 = "Nom du jeune homme"
                    txt2 = "Prenom du jeune homme"
                ElseIf Cell.Offset(0, 1) = "femme" Then
                    txt1 = "Nom de la jeune femme"
                    txt2 = "Prenom de la jeune femme"
                Else
                    MsgBox "Civilite inconnue !!!!"
                    Exit Sub
                End If
                derlig = Worksheets("feuil2").Range("A" & Rows.Count).End(xlUp).Row
                If derlig > 1 Then
                    derlig = derlig + 1
                End If
                Worksheets("feuil2").Cells(derlig, 1) = txt1
                Worksheets("feuil2").Cells(derlig, 3) = "age"
                Cell.Offset(0, 2).Copy Worksheets("feuil2").Cells(derlig, 2)
                Cell.Offset(0, 4).Copy Worksheets("feuil2").Cells(derlig, 4)
                Worksheets("feuil2").Cells(derlig + 1, 1) = txt2
                Worksheets("feuil2").Cells(derlig + 1, 3) = "ville"
                Cell.Offset(0, 3).Copy Worksheets("feuil2").Cells(derlig + 1, 2)
                Cell.Offset(0, 5).Copy Worksheets("feuil2").Cells(derlig + 1, 4)
                Exit Sub
            End If
        Next Cell
        MsgBox "Pas trouvé!!!!!!!"
    End With
End Sub

Sub test_Find()
    Dim var
    
    With Worksheets("feuil1")
      var = InputBox("Mot à rechercher ?") '******ICI
      
      If IsNumeric(var) Then
        var = CLng(var)
      End If
        derlig = .Range("A" & Rows.Count).End(xlUp).Row
        Set Plage = .Range("A1:A" & derlig)
        Nb = Application.CountIf(Plage, var)
        If Nb = 1 Then
            lig = 1
            lig = .Columns("A").Find(var, .Cells(lig, "A"), , xlWhole).Row
            If .Cells(lig, 2) = "homme" Then
                txt1 = "Nom du jeune homme"
                txt2 = "Prenom du jeune homme"
            ElseIf .Cells(lig, 2) = "femme" Then
                txt1 = "Nom de la jeune femme"
                txt2 = "Prenom de la jeune femme"
            Else
                MsgBox "Civilite inconnue !!!!"
                Exit Sub
            End If
            derlig = Worksheets("feuil2").Range("A" & Rows.Count).End(xlUp).Row
            If derlig > 1 Then
                derlig = derlig + 1
            End If
            Worksheets("feuil2").Cells(derlig, 1) = txt1
            Worksheets("feuil2").Cells(derlig, 3) = "age"
            .Cells(lig, 3).Copy Worksheets("feuil2").Cells(derlig, 2)
            .Cells(lig, 5).Copy Worksheets("feuil2").Cells(derlig, 4)
            Worksheets("feuil2").Cells(derlig + 1, 1) = txt2
            Worksheets("feuil2").Cells(derlig + 1, 3) = "ville"
            .Cells(lig, 4).Copy Worksheets("feuil2").Cells(derlig + 1, 2)
            .Cells(lig, 6).Copy Worksheets("feuil2").Cells(derlig + 1, 4)
        ElseIf Nb > 1 Then
            MsgBox "Attention " & Nb & " fois la meme reference !!!!!"
        Else
            MsgBox "Pas trouvé!!!!!!!"
        End If
    End With
End Sub