Code VBA

bonjour

je voudrais savoir si c'est possible de récupérer une valeur d'une cellule dans Excel pour identifier dans VBA ou coller l'information copier 

mon programme VBA la copie de B4 reste bien dans la colonne B mais la ligne change suivant ma rechercheV réaliser dans le fichier Excel 

merci d'avance 

Sub modifs1()
'
' modifs1 Macro
'

'
    Sheets("tableau").Select
    Rows("4:4").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Sheets("inscription").Select
    Range("E5").Select
    Selection.Copy
    Sheets("tableau").Select
    Range("b4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("inscription").Select
    Range("E7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("tableau").Select
    Range("C4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("inscription").Select
    Range("I7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("tableau").Select
    Range("D4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("inscription").Select
    Range("E9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("tableau").Select
    Range("E4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("inscription").Select
    Range("I9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("tableau").Select
    Range("F4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("inscription").Select
    Range("E11").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("tableau").Select
    Range("G4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("inscription").Select
    Range("E13").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("tableau").Select
    Range("I4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("inscription").Select
    Range("I11").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("tableau").Select
    Range("H4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("inscription").Select
    Range("I13").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("tableau").Select
    Range("J4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("inscription").Select
    Range("E15").Select
    Application.CutCopyMode = False
    Selection.Copy
    Application.CutCopyMode = False
    Range("E15").Select
    Selection.Copy
    Sheets("tableau").Select
    Range("K4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("inscription").Select
    Range("E19").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("tableau").Select
    Range("L4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("inscription").Select
    Range("E20").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("tableau").Select
    Range("M4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("inscription").Select
    Range("E15").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("E13").Select
    Selection.ClearContents
    Range("E11").Select
    Selection.ClearContents
    Range("E9").Select
    Selection.ClearContents
    Range("E7").Select
    Selection.ClearContents
    Range("I11").Select
    Selection.ClearContents
    Range("I13").Select
    Selection.ClearContents
End Sub